home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 5 (Internal Edition) / Apple R&P Lib Internal v5.0.iso / 6-Developer Demos / Developer Demos-Ed. / Macintosh School® CD-ROM Demo / Macintosh SchoolÆ CD-ROM Demo / card_57105.txt < prev    next >
Text File  |  1990-08-14  |  2KB  |  120 lines
  1. -- card: 57105 from stack: in
  2. -- bmap block id: 57465
  3. -- flags: 4000
  4. -- background id: 20347
  5. -- name: 
  6.  
  7.  
  8. -- part 1 (button)
  9. -- low flags: 00
  10. -- high flags: 2000
  11. -- rect: left=92 top=191 right=209 bottom=170
  12. -- title width / last selected line: 0
  13. -- icon id / first selected line: 0 / 0
  14. -- text alignment: 1
  15. -- font id: 0
  16. -- text size: 12
  17. -- style flags: 0
  18. -- line height: 16
  19. -- part name: OK
  20. ----- HyperTalk script -----
  21. on mouseUp
  22.   lock screen
  23.   put card field "Suspended From" into suspFrom
  24.   put card field "Suspended To" into suspTo
  25.   go to previous card
  26.   put "Suspended From " & suspFrom & " To " & suspTo into card field "Action"
  27.   unlock screen
  28. end mouseUp
  29.  
  30.  
  31.  
  32. -- part 2 (button)
  33. -- low flags: 00
  34. -- high flags: 2000
  35. -- rect: left=216 top=191 right=209 bottom=294
  36. -- title width / last selected line: 0
  37. -- icon id / first selected line: 0 / 0
  38. -- text alignment: 1
  39. -- font id: 0
  40. -- text size: 12
  41. -- style flags: 0
  42. -- line height: 16
  43. -- part name: Cancel
  44. ----- HyperTalk script -----
  45. on mouseUp
  46.   lock screen
  47.   go to previous card
  48.   put empty into card field "Action"
  49.   unlock screen
  50. end mouseUp
  51.  
  52.  
  53.  
  54. -- part 3 (button)
  55. -- low flags: 00
  56. -- high flags: 2000
  57. -- rect: left=336 top=191 right=209 bottom=414
  58. -- title width / last selected line: 0
  59. -- icon id / first selected line: 0 / 0
  60. -- text alignment: 1
  61. -- font id: 0
  62. -- text size: 12
  63. -- style flags: 0
  64. -- line height: 16
  65. -- part name: Clear
  66. ----- HyperTalk script -----
  67. on mouseUp
  68.   put empty into card field "Suspended From"
  69.   put empty into card field "Suspended To"
  70. end mouseUp
  71.  
  72.  
  73.  
  74. -- part 4 (field)
  75. -- low flags: 01
  76. -- high flags: 0000
  77. -- rect: left=134 top=158 right=175 bottom=223
  78. -- title width / last selected line: 0
  79. -- icon id / first selected line: 0 / 0
  80. -- text alignment: 65535
  81. -- font id: 0
  82. -- text size: 12
  83. -- style flags: 0
  84. -- line height: 16
  85. -- part name: Suspended From
  86.  
  87.  
  88. -- part 5 (field)
  89. -- low flags: 01
  90. -- high flags: 0000
  91. -- rect: left=302 top=158 right=175 bottom=391
  92. -- title width / last selected line: 0
  93. -- icon id / first selected line: 0 / 0
  94. -- text alignment: 65535
  95. -- font id: 0
  96. -- text size: 12
  97. -- style flags: 0
  98. -- line height: 16
  99. -- part name: Suspended To
  100.  
  101.  
  102. -- part contents for background part 13
  103. ----- text -----
  104. Richter, Robert Charlie
  105.  
  106. -- part contents for background part 14
  107. ----- text -----
  108. 12
  109.  
  110. -- part contents for background part 15
  111. ----- text -----
  112. 102
  113.  
  114. -- part contents for card part 4
  115. ----- text -----
  116.  Aug 3, 89
  117.  
  118. -- part contents for card part 5
  119. ----- text -----
  120.  Oct 3, 89